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Acerca de este libro 


Los programas de este libro están escritos 
en una versión estándar de BASIC, uno 
de los lenguajes de ordenador, y hay 
líneas de conversión para la mayoría de 
los principales tipos de ordenadores 
personales. Busca a la izquierda del 
listado del programa el símbolo que 
representa a tu ordenador y después mira 
en la lista de cambios los necesarios para 
la versión correcta de esa línea. Los 
símbolos para los distintos ordenadores 
son los siguientes: 

A Commodore 64 y VIC 20 
□ Spectrum 

• Apple 

* DRAGON 
■ MSX 

Acerca de los juegos 

Los juegos de este libro son muy sencillos. 
Se han creado con la intención de 
ayudarte a acostumbrarte a tu ordenador 
y al lenguaje BASIC, tecleando los 
programas, depurándolos y 
comprendiendo cómo funcionan. Los 
programas no tienen gráficos o sonido 
porque varían mucho de un ordenador a 
otro, pero puedes intentar añadírselos. 

Puedes cambiar y adaptar los juegos a 
tu gusto. Detrás de cada listado de 
programa se sugieren maneras de hacerlo, 
pero también puedes experimentar con 
tus propias ideas. De esta manera, puedes 
usar los juegos de este libro como base 
para conseguir juegos más largos y más 
complicados hechos por ti mismo. 


Teclear y ejecutar los programas 

Recuerda que puede resultar difícil y 
llevar mucho tiempo teclear 
correctamente los programas, incluso si 
éstos son cortos. Comprueba cada línea 
que introduzcas, ya que es fácil cometer 
errores aunque tengas bastante 
experiencia. 

Cuando hayas introducido la totalidad 
del programa, compruébalo otra vez, 
asegurándote de que no te has saltado 
ninguna línea, espacios o signos de 
puntuación. 

Para empezar el juego, teclea RUN. 
Antes de empezar, lee la introducción del 
juego para tener una idea de lo que se 
supone que éste debe hacer. Si el 
programa no funciona correctamente, es 
bastante probable que haya un error en 
cualquier sitio; por eso, lista el programa 
y compruébalo de nuevo. 

Al acabar el juego, puede que el 
ordenador te pregunte si quieres jugar 
otra vez o, por el contrario, decir algo 
como BREAK in 200, en cuyo caso debes 
teclear RUN para jugar otra vez. 


Cambiar la velocidad 

Algunos juegos dependen de la velocidad 
de tus reacciones y del ordenador. Puede 
ser necesario ajustar la velocidad. 
Encontrarás instrucciones para hacerlo a 
continuación del listado del programa. 
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Líneas de conversión 

m 140,180,250,300 Sustituir CL5 por HOME 
A 140,180,250,3*0 Sustituir OIS por PRINT CHMU47I 
m 310 1*=":IF P£EKi-lí304]>127 TH£I SET I* 

A 310 GET II 

□ 340 Sustituir RMDll) par AND 

* 340 Sustituir RUBÍ 11 por RHÍI-TIHE) 

■ 340 LET H-RHD [91 

L_ 380 PRINT AT T 41), Xtl» ¡STR*4 II 
A3BÜ PRINT CHRIÜÍI:FOR LL=1 T0 T(1 1 : PRINT: HEXT íPRIHIT 
TiuxaniSiiiiiK 
mm pftmTí rtjiiaz+íiiijSTWiiii 

★ 3B0 LOCATE XÜI g Y(I> ¡PRIHT 5TR«<II 


Intenta hacer una 
subrutina que conserve Ja 
puntuación más alta 
obtenida hasta 
t el momento, j 


Ojos de espía 


Sí crees que eres un buen espía, prueba este juego. 

El ordenador imprimirá los números 1 a 9 en tu pantalla. 
Obsérvalos como un halcón mientras pulsas una tecla (vale 
cualquiera). Uno de ellos se mueve, pero ¿cuál? Cuando creas 
que lo sabes, pulsa otra vez una tecla y dtselo al ordenador. 

Comprueba que tu capacidad de observación no es tan 
buena como pensabas. 


Cómo funciona el programa 

10: Define el espacio para las variables que contienen 
tas posiciones de los números. 

20: Irricialíza la variable del tanteo a cero. 

30-60: Elige las posiciones de Jos números. 

70: Salta a !a subnitína de impresión de los números* 

80: Salta a La subrutina que espera la pulsación de una 


lú ÍIH WlíDIIt Y (91 
20 LET P*0 
30 FOR IM TQ 9 
40 GOSUB 3401 LET XUI-NO 
50 G0SUI 3401 LET Y(I)-N+3 
40 «EXT I 
70 GOSUB 340 
' SO OOSUB 310 
90 OOSUB 340 
100 LET rmOSUB 340 
110 LET XIM-XlNItSGÍÍíN-S.l) 

120 OOSUB 340 
130 OOSUB 310 

a a iifi ns'pimiT 

150 PRINT 'QUE NUMERO SE HA ROVIBO V 
140 1NPUT A 

170 IF AON THEN 00T0 250 
•a 180 CLSlPimiT 

190 PRINT 'BIEN ESPIADO! ' 

200 LET P-P+l 

210 PRINT 'AHORA TIENES MPf* PUNTOS* 

220 PRINT SPRINT 'PULSA UNA TECLA' 

230 OOSUB 310 
240 GOTO 30 

•a 250 CLSíPRINT SPRINT 'EQUIVOCADO-FIN DEL JUEGO 
240 PRINT 'LA RESPUESTA CORRECTA ES *|N 
270 PRINT 'TU TANTEO 'iPf* PUNTOS' 

200 PRINT 'OTRA PARTIDA ? IS/N)' 

290 INPUT AlílF A4-*S' THEN RUN 
300 STOP 

•A 310 LET IWNKEYI 

320 IF !!•" THEN 30T0 310 
330 RETURN 

□■*340 LET N'INT(RNDUI»9)*1 
350 RETURN 
•a 340 CLS 

370 FOR I«1 T0 9 

■a»* 380 PRINT TAB(X(I),YUHfSTRt(l] 

390 NEXT I 

400 RETURN _ 


90-100: Salta a la subrutina que elige uno de los 
números y la llama M 

110: Elige el movimiento a derecha o izquierda. 

120: Salta a la subrutina que imprime los números* 

130: Salta a la subrutina que espera la pulsación de 
una tecla, 


140-150: Borra la pantalla. Imprime un mensaje. 

160: Coge tu número* 

170: Si te has equivocado, el programa salta a la línea 
250 para darte el mensaje* 

180-190: Borra la pantalla e imprime un mensaje. 

200-210: Incrementa el tanteo y lo imprime. 

220 230: Imprime un mensaje y salta a Ja subrutina 
que espera la pulsación de una tecla. 

240: Vuelve para la siguiente baza, 

250-300: Si te has equivocado, imprime el mensaje y te 
pregunta si quieres jugar otra vez. 

310-330: Subrutina que espera Ea pulsación de una 
tecla. 

340-350: Subrutina para elegir un número aleatorio 
entre 1 y 9 + 

360-400: Subrutina que imprime Los números en la 
pantalla en las posiciones correspondientes. 






Ests misma noche debe llevarse a cabo una misión absolutamente secreta y 
desesperadamente peligrosa. ¡Y debes realizarla tü! 

Debes cruzar una sección estrechamente vigilada del territorio enemigo y regresar, 
evitando su potente y gigantesco faro rastreador. Hay rocas, arbustos y otros 
obstáculos donde esconderse, pero no hay segundas oportunidades: una vez te hayan 
visto habrás perdido la que tenías. Cuando hayas completado una misión con éxito, 
hay otra, más difícil incluso, que llevar a cabo. Poder seguir sólo depende de tu 

habilidad. ^ para moverte a j a derecha y la N para moverte a la izquierda. Para 
completar una misión, debes cruzar la pantalla de izquierda a derecha y regresar de 
nuevo. 

JO OOSU! 450 Cómo funciona el programa 

20 LET AMítET O-OiLET S-ü ]0; Salta a la subrutina que iee los 

•A 30 CLS datos - 

40 LET X'OiLET V-12SLET 20: Inicíaliza variables. 

50 60SU) 360 40-50: Imprime los obstáculos- 

40 LET F-OiLET N-OiLET BWíGOSUB 340 60 _ 70: N es la posición del jugador NN 

70 LET L'O'IET C=C:LÉT TC=10¡LET C1«0 es la nueva posición. 

•▲60 LET I*=IKKEY6 80: Comprueba sí has pulsado alguna 

90 1F IK'H* THE» LET HN=H-1 tecla 

inn te itiNi TUTU i CT Ml-tUl 90: Si la tecla pulsada es N (izquierda), 

100 If 1»- H THtl LEI Pffl ■»! la nueva ^ sici6n es N mcnos i. Si es M 

110 IF HM> 19 THE» LET K»=19 (derecha), es N más 1. 

120 IF NM(0 THE» LET HN-0 100-120: Interrumpe el movimiento del 

130 IF KH=19 AND F-0 THE» LET F=1 jugador cuando llega al final. 

140 IF NN=Q m F«1 THE» LET F=2 130-140: F es 1 cuando el jugador llega 

. a al extremo derecho de ia pantalla, y ¿ 

150 ODhllfl iW cuando vuelve a alcanzar la parte 

i¿0 IF H om THEK LET S*S U izquierda. 

170 LET »=M»:LET 0*0+1 150: Salta a la subrutina que mueve al 

160 0OSUB 400 jugador. 

□ 190 IF RISKAOlAiiN+lil)-' ' AMI L=1 THE» OOTO 240 160: Si el jugador se ha movido, se 

* incrementa S- 

200 F0R 7=1 TO 50:KEXT T 

1C r fij tutu afiTfl Bíl 170: Hace la P osicion dcl jugador igual a 

£1U Ir r^t InEN tJUfw íJL !a nueva posición e incrementa G- G 

f \ actúa como contador; se incrementa 

siempre, tanto si se mueve el jugador o 


¿Puedes hacer que la 
luz permanezca más 
tiempo encendida? 


180: Salta a la subrutina que enciende y 
apaga la luz. 

190: Comprueba si el jugador está 
debajo de un espacio cuando se enciende 
la luz y si es así, salta para imprimir el 
mensaje de que ha perdido. 

200: Pausa* 

210: Si el jugador no ha regresado a la 
parte izquierda, regresa para comprobar 
si pulsa alguna teda. 


Quizá puedas sustituir los 
obstáculos, que vienen 
como * “ * en el listado, por 
símbolos gráficos para 
representar rocas, árboles, 
edificios o cualquier otra 
cosa que te guste. 







220 LET A=A*1¡ IF A=B THEN LET A=7 
230 OOTO 30 

240 LET X=4:LET T=liLEI HUMABAS DE SER DESCUBIERTO 
250 OOStlB 3B0: PRINT 

240 PRUT 'TU TANTEO "f ZNTHA-1*5/C1 flOO) 

270 PRINT.' PRINT 'OTRA VEZ? IS/N)' 

280 IMPUT CfilF C*»'S' THEN RUN 
290 PRINT 'ADIOS 'íSTOP 

310 GOSUB 360¡RETURN ( é \ l\ 

320 LET X=I0:LÉT T=3:LET 11=' ' \ / 

330 6ÜSUB 380IRETURN Y^rT 

340 LET X-NJLET M3JLET W=' ' / 

350 60SUB 300 

360 LET X-WÜLET If-'S* M M 

370 OOSUB 380:RETURN A 

★□■•4380 PRINT TAitX. Y) fB* x L N 

iífl OCT1IM i Añade sonidos de alarma\ 

JíU KclUKH 1 para cuando el enemigo/ 

400 IF L*1 THEN LET C-C»K descubre al jugador. y 

★□■410 IF C*TC THEN LET L*0:LET C-OíLET TO]NT(RNDÜ)Í6M12-A)i:60SUl 320 
420 IF L-0 THEN LET CK!M 

★□■430 IF Cl-TC THEN LET L*ULET Cl-OlLET TOINT iRNB 1 11 110 1 (6 -A ) i : 0OSUB 300 
440 RETURH 
□ 450 B1R AII7J 

460 FSR 1-1 T0 7: REAS AKI):NEXT I 
470 RETURN 

4B0 BATA '« = = ” ” = = ==’ 

490 BATA '= = == == = == =■ 

500 DATA '= == = - = = =» 

510 BATA ** = * = == =' 

520 BATA *= = == = =' 

530 DATA '= = = * 

540 OATA '== = = =• 


220: Incrementa el nivel de dificultad. 

230: Vuelve a imprimir obstáculos 
nuevos. 

240-290: Imprime el mensaje que te 
indica que has perdido, así" como el 
tanteo, y pregunta si quieres jugar otra 
vez. 

300-310: Imprime el foco de búsqueda. 

320-330: Apaga el foco, 

340-370: Subrutina que actualiza la 
posición del jugador. 

380-390: Subrutína que imprime la 
variable BS en la pantaHa t en la posición 
X,Y. 

400-440: Subrutina que determina el 
tiempo que está encendida y apagada La 
Luz, 

450-470: Sub rutina que lee los datos de 
los obstáculos. 

480-540: Líneas de da tos - 


Puedes hacer el juego más' 
fácil dando al jugador una 
segunda oportunidad. ¿Sabes 
cómo hacerlo? 


Líneas de conversión 

• 34 HOME 

4 30 PRINT CHRÍI147) 

4 80 BET II 

• 84 PEEK 1-16384)) 127 THEN BET I* 

□ 190 IF 4114,8*1)*’ 1 MI L-l THEN BOTO 244 
O 380 PRINT IT YjX¡M 

• 380 VTUm:HTM(X»l);PRINT H 

4 380 PRINT CHRf(19):F0R LL*1 TO T:PR1NT:NEX7:PRINT TMIXljl* 

■ 380 PR1WTC TI32tX,W¡ 

• 380 LOCATE X,V:PRIMT I» 

□ 410,480 Sustituir RNDII) per RNB 

■ 410,430 Sttstítulr RND(i) par RUBIO) 

• 410,430 Sustituir RNDII) por RUI -TIÑE) 

□ 450 DIN 4017,20) 

U I i fifi 200 cofttroU U viJaciiii 


Puedes cambiar lasN 
posiciones de los 
obstáculos cambiando 
v las líneas de datos. > 
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£0 LEI SP=.3 f ¿Puedes hacer que el or- , 

20 CIS (denador pregunte el nombre 

(al jugador cuando se alcanza 

30 LET H-0 ^\un nuevo mejor tanteo? 

40 LET K=0:LET S=Ü:LET L=J 
50 PRINT ■ >>>P0B0T ESPIAííí 'IPRINT 
60 PRINT 'PULSA E PARA EMPEZAR* 

•A 70 LET CMINKEYÍ 

SO IF CÍO'E' THEN SOTO 70 
•a 90 CLS: PRINT ¡PRINT 
100 IF K=5 THEN LET L=L+liLET K=0 
110 LET MS s " 

120 LET C$=" 

130 F0R T=1 T0 L 
□■*N0 LET N=RND(1) 

150 IF N) s *5 THEN PRINT MZflUIERDA'MET 9NHW+*I" 

160 IF Ni. 5 THEN PRINT 'DERECHA'; LET HMWeD' 

170 NEXT T 
180 LET K=K+1 
190 F0R í-í T0 200ILKP 
•A 200 LET CMNKEYI 
210 NEXT D 

•A 220 CLSlPRINTlPRINT 
230 LET E=0 

290 PRINT 'fine iirecion/es era/n?' 



Cómo funciona 

30-40; Inicia liza variables, L es el 
número de palabras impresas en la 
pantalla. K cuenta cuántas veces se han 
impreso L palabras. 

60-30: Imprime un mensaje y espera a 
que se pulse una tecla para empezar. 

90: Borra la pantalla y deja dos líneas 
vacías. 

LOO: Sí K es 5, se incrementa el valor de 
L y K se hace cero. 

110-120: Define dos variables de cadena 
vacías, 

130-170: Bucle de L repeticiones 
eligiendo la secuencia de derechas e 
izq uierdas aleatoriamente , 
imprimiéndolas y guardándolas en MSb 

180: Incrementa K, 

190-210: Pausa para que el jugador vea 
las palabras. Es más larga cuantas más 
palabras haya. 

230: Variable de error: será 1 si el 
jugador ha tenido un fallo, 

250: Comienza el bucle de captura y 
comprobación de las respuestas. 

260-270: Imprime el prompt, comprueba 
si se pulsa una teda y la pone en CS. 


250 FOR T=1 TO L 
260 PRINT '?'! 

•A 270 LET C*=INKEV* 

280 IF C$<>'D* AND C$OT THEN 60TC 270 
290 PRINT C* 

□ 300 IF CÍONHÍIHI.T,!) THEN LET E=1 
310 NEXT T 

320 IF E=0 THEN LET S=S+L 
330 IF S)=H THEN LET B=S 

340 IF E-l THEN PRINT 'LE PERDISTE! VAYA ESPIA!' 

350 PRINT 'PUNTUACION » *;S 

360 PRINT 'RECORD DE PUNTUACION = 'jH 

370 IF E=1 THEN GOTO 40 

380 FOR D=! TO 5001SP 

390 NEX7 D 

400 SOTO 90 

Líneas de conversión 

• 20,90,220 Sustituir CLS por H0NE 

a 20,90,220 Sustituir CLS por PRINT CHNt(!47> 

• 70,200,270 «s'MF PEEN í- 16384! >127 THEN SET » 

a 70.200,270 SET Ct 

□ 140 LET N=RND 

■ 140 LET N=RND(0) 

*140 LET N-RNÍMIHEI 

□ 300 IF CIONKT! THEN LET E*1 


280: Sí la teda pulsada no es 1 o D 
vuelve por otra. 

300: Comprueba si la letra de CS 
coincide con la correspondiente de MS y 
si no. pone a uno la variable de error. 

320: Actualiza el tanteo si no hay ningún 
fallo, 

330: Si es necesario, actualiza el mejor 
tanteo- 

340: Si hay algún fallo, imprime el 
mensaje. 

350-360: Imprime el tanteo. 

370: Vuelve para jugar otra vez. 

380-390: Pausa para ver el tanteo. 

400: Regresa para la siguiente baza. 



Examen de espía 


Como recluta en la Escuela de Espías, tienes que pasar un montón de exámenes Q 
para graduarte. Empiezas en el nivel más bajo; el Grado 5 de Aprendiz de Espía. Tu 
meta es alcanzar lo más alto y llegar a ser un VIS (Very Importan* Spy = Espía Muy 
Importante) de Grado 1 e incluso lograr el máximo: el Diploma de Super Espía. 

En cada examen Q aparecen 10 posiciones en la pantalla de tu ordenador y se te 
dan números entre 1 y 100. Tu meta es colocar en orden estos números en las 10 
posiciones, estando el más bajo en la posición 1 y el más alto en la 10. 

Puedes descartar algunos números si no tienes dónde colocarlos, pulsando la tecla 
D. El número de números que puedes desechar es el mismo que el número de tu 
grado. 


Cómo funciona el programa 



¿Puedes hacer que el 
numero de posiciones 
sea 15 en vez de 10? 


□ 10 I1N NUODDIN H*Í5J 
•a 20 CLS 
30 60SUB 310. 

40 LET 
50 LET B-5 
£0 LET 6*0 

70 FON I-I TQ 10: LET NUI-OíNEXT I 
60 LET I-i 
90 60SUB 430 

100 LET H-IKT<RNB<1J<99*1) 

110 PRINT i PRINT 'SONDE PONES '!« 

120 PRINT: INPÜT P$ 

130 IF PI-'D* m GÍB THEN LET 6=6+l:60T0 90 
140 IF PB-'B' THEN PRINT 'NO PUEDES! 1 :GGTQ 120 
150 LET P’VALIPtl 
1¿0 IF P<1 0N P)10 THEN SOTO 120 


LO: Dimensiona las tablas. 

20: Borra la pantalla. 

30: Salta a !a subrutina que lee las datos 
y los pone en la tabla NS(). 

40: Inícializa WS. 

50; Hace 5 el Grado al comienzo del 
programa, 

60: G es el numero de números 
descartados. 

70; Pone ceros en las 10 posiciones para 
empezar. 

80: Cuenta los números que el jugador 
ha colocado. 

90: Salta a la subrutiná que imprime tu 
nivel, ios números 1 a 10 y los que ya 
hubiera en esas posiciones. 

100: Elige un número entre 1 y 100, 

110-1 20: Imprime el numero y averigua 
dónde quieres ponerlo. 

130-140: Comprueba si pulsas D y si 
puedes o no descartar algún número. 

150: Calcula el valor numérico de tu 
entrada de datos. 

160: Vuelve a pedirte el dato si el 
número no está entre 1 y 10. 


i 

i 



170 IF NÍPDO THEK PRIHT *YA ESTA LLENG'IBOTO 

180 LET HÍP)«H 

190 LET F*0 

200 FOR L*P TO 10 

210 IF NtLHH ANO N1LIOO THEK LET F«1 

220 NEXT L 

230 FOR L-l TO P 

200 IF NILON ANO NIUOO TREN LET F*1 
250 NEXT L 


120 170: Hace lo mismo si la posición está 

ya ocupada, 

ISO: Pone el numero en la posición que 
tu has indicado. 

190-220: Comprueba todas las 
posiciones siguientes a la que has dicho 
para ver si hay ya un numero más bajo 
en alguna de ellas. Sí es así hace F- 1. 

230-250: Comprueba las posiciones 
anteriores y pone F a I si hay ya un 
número más alio en alguna de ellas. 


260 IF F a l THEN GOTO 360 

270 LET WtllIF Kll THEN SOTO 90 

280 LET J*B-!:IF D«0 THEN BOTO 330 

290 PRINT 'BIEN HECHO, PASAS AL GRAJO MD 

300 PRINT: PRINT 'AHORA ERES UN MWIB) 

310 LET 
320 GOTO 400 

330 PRINT 'ASOMBROSO! HAS ALCANZADO* 

340 PRINT 'EL GRADO DE SUPER ESPIA* 


260: Si la posición no es correcta, salta 
a otra línea para indicártelo, 

270: Incrementa el contador y regresa a 
por otro número. 

28Ü-300: Cambia D al Grado siguiente e 
imprime el mensaje. (Va a Supenespía si 
D es O,) 

310: Hace igual a una cadena vacía. 

320: Salta para imprimir el mensaje 
«inténtalo otra vez». 


350 STOP 

360 PRINT 'NAL! NO ERES BASTANTE BUENO 1 
370 PRINTí PRINT 'AUN ERES UN '! 

380 PRINT H*(!)) 

390 LET W-'AUH' 

400 PRINT: PRINT «RES INTENTARLO OTRA VEZ? iS/N) 
410 INPUT A*:IF A*-'S' THEN GOTO 60 
420 STOP 
•a 430 CLS 

440 PRINTlPRINT'ERES '¡llAi' UN 'íWIIJ 

450 PRINT 

460 FOR J*1 TO 10 

470 PRINT Jl 

480 IF NUDO THEN PRINT KIJM 
490 PRINT: NEXT I 
500 RETURN 

510 FOR 1=1 10 5:REAJ MU) 

520 NEXT I 
530 RETURN 

540 BATA 'VIS*, 'ESPIA 1 , 'ESPIA JUNIOR* 

550 DATA 'ASISTENTE JE ESPIA' /APRENDIZ BE ESPIA* 


330-350: Mensaje de Superespía, 

360-380: Imprime el mensaje de que has 
suspendido. 

300: Hace WS igual a «todavía». 

400-420: Averigua si quieres intentarlo 
otra vez; si no, interrumpe el juego. 

430-500: Submtina que imprime 
mensajes y números. 

510-530: Submtina que lee los nombres 
de los Grados y los pone en la tabla NS. 

540-550: Datos. 


Líneas de conversión 

□ 10 DIH NUODBIN H$I5,IÓ¡ 

• 20,430 Sustituir CLS por HOME 
a 20, 430 Sustituir CLS por PRINT CHRÍU47! 

□ 100 LET N*INHRNH99*n 
■ 100 LET N«RNBÍ99Í 

*100 LET R*INT{RND(-TIHEU9941) 






Puedes establecer una red 
de espionaje con todos 
tus amigos que tengan 
ordenador. 


VLURE QH UDL1QRF 
HEHG HV RQI 


JL ftipíVCYQS 

BOGDH ^TTCJXUF 


El codificador de mensajes secretos 

Usa este programa para enviar mensajes codificados a tus amigos. Ellos necesitarán 
un ordenador para decodificarlos, aunque no necesariamente del mismo tipo que el 
tuyo. Pero no olvides que necesitarán una copia del programa. Así, podrán decodificar 
tus mensajes y también enviártelos codificados. 

Cómo funciona el programa 

10*80: Imprime el «menú» y pregunta si 
quieres codificar o decodificar; 


CLSIPRINT: PRINT ■CODIFICADOR K MENSAJES SECRETOS" 
PRINT' a ==-«-*--=«=* 

PRINTíPRlNT ■MIE 6UIERES í 1 
PRINT 

PfiWT ' t, CODIFICAR UN MENSAJE* 

PRINT ’ 0 2. DE CODIFICAR UN MENSAJE* 

PRINTíPRlNT 

PRINT 'INTRODUCE UN NUHEROMNPUT A 
IF A a l THEK SOSUI 120 
i IF A-2 THEK GOSUB 210 
i SOTO 30 

i IET C!- ( C0DIF1CAR*:S0SUB 400 
i LET X=INTIRNDÜU25+I) 
i LET HA= , F , +N* 
i G0SUB 3i0:S0SUB 420 
l LET NUCHRÍWMJ+H» 

I IF LENiKí) /2*INT (LENINI) 12) THEK 6QSU8 450 
I PRINT ■EL MENSAJE CODIFICADO ES! * 

1 PRINT NI 
I RETURN 

1 LET Cf-*DEC09IFICAR' ¡S0SUB 400 
) IF LENtNI) /2 s INTÍLEN(NtJ/2l TREN 60SUB 450 
1 LET KI S LEFTÍ(NI, 1) 

) LET M=RIGHT$ttt f LERiN*)-i} 

) LET X*ASCIKÍ)-é4 
) LET X=-X I60SUB 420 


90-100: Salta a la subrutina 
co rresp ondi e nte , 

110: Regresa otra vez al menú, 

120-200: SUBRUTINA DE 

codificación. 

120: Salta a la subrutina que pide el 
mensaje, 

130: Elige una cantidad para cambiar 
las letras y la pone en X, 

140: Añade una letra en caso de que la 
primera palabra tenga un solo carácter, 

150: Salta a la subrutina para cambiar 
X letras del alfabeto y colocarlas al 


160: Añade una letra al mensaje para 
decir a la subrutina de codifica dora cuál 
es el valor de X* 

170: Comprueba si el mensaje tiene un 
numero par de caracteres. Si es así, 
salta a la subrutina que intercambia las 
letras de cada par, 

210-300: SUBRUTINA DE 
DECODIF1C ACION, 

210: Salta a la subrutina que pide el 
mensaje, 

220: Si el mensaje contiene un número 
par de letras, las intercambia en cada 
par. 

230-240: Extrae la primera letra. (Es la 
añadida en la línea 160, que indica la 
cantidad de cambios.) 

250: Calcula el valor de X. 

260: Modifica la dirección del cambín y 
salta a la subrutina que invierte las 
letras. 


XOFJ PDG ETHEDGGG 
TDH ARPJHUQ 


CTFF UXYJ BC WDICY 
PYFKOZU 


EMMMMLLLLFF XJ TUTY 
QJK 


SHWGTKBF TMLX XM 
GXBNZETY 







XLYRLCGK ML OSO QMPRM 
QMJ Y GBD 


P1EDQBF JEB UDUYJ 
BHQSV 


¿Puedes averiguar 
lo que están 
diciendo? 


JKCKM SW K OD VO 
BKWYD K XOFP 


QLOTZAM EF QAEQYQO 
HAERZ 


6DSU8 310:H$=RISHT*fHlpLEHIíH)-l) 
PRINT 'EL KE USAJE 1ECDBIFICAI0 ES; ' 
PRIHT H» 

RETURN 

LET 

i FOR 1*1 TD LEHÜ») 
i LET 8*=nmiltt,I,n:LET H*ASC1W! 
i IF N=32 THEH SOTO 380 
l LET M*H*X 

I IF H>90 THEH LET N*H-2A 
) IF N<65 THEH LET N=H+2Ó 
) LET Ht*M+CHW(Hi:HEXT I 
) LET Hí s Hí:RETliRH 

) PRIHT 'CUAL ES EL MENSAJE PARA *l« 

3 IHPUT MlRETURH 

3 LET W.m I*LEHOttl T0 1 STEP -l 
í LET X f 1! SM0CT I 

0 LET RETURN 
0 LET Ni=";LET N S LEN(M> 

0 FOR M TO LEH(HA)*1 STEP 2 
0 LET 

0 LET H*=M+HIM«tf,I,ll 
0 NEXT I:LET H< S N$; RETURN 


270: Salta a la subrutina que cambia las 
letras en el alfabeto. Separa la primera 
letra. 

310-390: SU B RUTINA DE CAMBIO, 

310: Pone el mensaje en N5- 

320: Comienzo del bucle* que toma una 
letra de NS cada vez. 

330: Calcula el numero de código de la 
letra para el ordenador, 

340: Si hay un espacio, lo mantiene 
igual. 

350: Anade el valor de X al código de la 
letra. 

360-370: Ajusta el número de código si 
va más allá del código de la Z o es 
menor que el de la A. 

380: Anade una nueva letra a NS y 
vuelve al principio del bucle, 

390: Cuando se han cambiado todas las 
letras, se pone el nuevo mensaje en MS. 

400-410: Subrutina que pide el mensaje, 

420-440: Subrutina que invierte las 
letras. 

450-490: Sub rutina que toma por orden 
pares de letras del mensaje y las 
intercambia dentro de la misma pareja. 


r Los buenos espías 
normalmente comprueban que 
sus mensajes pueden 
deeodlficarse correctamente 
antes de enviarlos. 


Líneas de conversión 
• 10 Sustituir CLS por HOME 
a 10 Sustituir CLS por PRIHT CHRAI147) 

□ 130 LET X-IHTIRHÍE23J+1 
130 LET X=RRM31 
130 LET St*INTUWD(-TIME) 1251+1 

□ 230 LET K=M»tl) 


□ 240 LET W=H*(2 TO 1 

□ 250 LET X*C01EK«-64 

□ 270 GOSUB 310! LET M=ltt(2 TO ) 

□ 330 LET n-N*(I):LET ¡KOBEl») 

□ 430 LET HMWlWlilEXT 1 

□ 470 LET N*-R$+H!(I+1] 

□ 480 LET N$sH4*H*(l) 






Debes regresar aquí 
antes de que despegue 
el ultimo vuelo, j 


PARQUE 


CASINO 


/ PLAZA 
DEL FUELLO 


caja de seguridad 


AAVUNTi 
/ WUtNTÍ 


La maleta está 
en la caja. 


La cita 


Tu misión es complicada: por eso. lee estas 
instrucciones cuidadosamente. 

Debes recoger una maleta en una caja 
de seguridad de la estación, entregársela a 
tu contacto y regresar al aeropuerto antes 
de que despegue el último avión (tu 
ordenador te dirá la hora). 

También te dirá dónde encontrar a tu 
contacto y a qué hora. Por eso. debes dejar 
un mensaje en ese lugar antes de que él 
llegue, diciéndole dónde y cuándo te verás 
con él para darle la maleta. 

Debes averiguar la palabra clave antes 
de verlo, y asegúrate de que no llegas más 
de 15 minutos tarde. 

Antes de que puedas coger la maleta, debes 
encontrar la llave de la caja y también su 
nú mero. Por desgracia, la llave está en 
manos de agentes enemigos, cuyo cuartel 
general está en el hotel. Debes encontrar 
un espía enemigo y seguirlo, esperando que 
no sea muy cuidadoso y pierda la llave (y, 
desde luego, que no te vea). 

El plano te muestra los sitios a los que 
puedes ir y la lista siguiente, las palabras 
que puedes usar en el juego. 


Ahora cómete el libro. 


Puede que necesites tomar nota de la 
palabra clave y del número de la caja 
(codificado por supuesto). 


Palabras que puedes usar: 


dice qué hora es. 

IR — Te pregunta adonde. Puedes ir a 
lugar indicado en el plano. 

DECIR — Ta palabra clave. 

EXAMINAR — Cualquier cosa. (Examina la 
llave para saber el número.) 

LEER — Un mensaje. 

ABRIR — La caja de seguridad. 

SEGUIR — A un espía enemigo. 


ESPERAR — Durante un cierto tiempo. 
DEJAR — Un mensaje. 

BUSCAR — En cualquier sitio (para 
encontrar la llave). 

AYUDA — Te recuerda la hora y el lugar de 
encuentro. 

También puedes usar cualquiera de los 
nombres del plano que están en letras 
mayúsculas. 


Adómtrpuedes ir 

AEROPUERTO 


PARADA 




Si usas un VlC-20, 
necesitarás la 
memoria extra 
para este juego 


■ L 10 1EF FHA(K]=IHTíPMDU]fX)*l 
20 fiOSUB J <i 1 0 : GOSUi 1130 
30 LET P-ÜLET t*Q;Ln X*1:LET EP*10 

40 íet ü=o:let m=o 

50 LET SM" 

£0 IET «=" 

•A 70 CLS:PRriiT:PRIHT ’CITA' 

80 PRINT 
90 LET 

JOO PRIUTlPRim 
110 PÍINT KiPftlPfT 
120 PRIHTIPRIHT 'ÉSTAS EH 'I 
130 PflIllT W!P) 

140 IF EP«P TKÉN PR1NT 'EL ASERTE EREH1SQ ESTA ABitl'lLEÍ «E=NE+Í 
150 IF EPOP THÉÍ LET NE=0 

160 IF P*MP AHO F ( 1 1 *0 THEH PílHT 'MENSAJE PARA TI ABUI 1 
170 LET FOI-O 
180 LET TJsP+N/JOQ 


Cómo funciono el programa 


10: Define una función que elige un 
numero aleatorio entre 1 y X. 

20: Salta al final del programa para leer 
los datos e inicia lizar el juego. 

30: l\ Y y X registran la posición del 
jugador. EiP es la posición del enemigo. 

60: BS sirve para los mensajes que el 
ordenador da al jugador, 

90: Incrementa NM (número de 
movimientos), 

140: NE cuenta cuánto tiempo está el 
jugador en el mismo lugar que el agente 
enemigo, 

180: Calcula la hora (H - huras, 

M - minutos). 
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190 IF F 141*1 AH Rl(P)=S» AND U(=TI AH UM5>T1 THEN PfiINT TIILET F!3!*l 

200 IF P*1 AH HíFH AN9 FI7!=1 THEN 6010 B9D 

210 PRIKT:PRIHT:PRINT '8U£ ES LO SIGUIENTE' 

220 LEÍ M*” 

230 INPUT !* 

-240 LEÍ V=ü:F0R 1=1 TO 11 
250 IF I«*WI1I THEH LEI V»I 
260 KXT I 

270 IF V*0 THEN LEÍ V=12 

230 IF H£=3 AHI FHA(IO) J3 THEH LET H-'EL ASERIE EHEHIGO TE ESTA HIENDO !': 

290 IF NE*4 AH VOl THEH PRINT 'TE HAN- CAPTURADO l'lSTOP 

“ 300 OH V GOSUI 360,420,499,540,570,640,710,730,780,610,820,370 
310 LET MMÜ1F «>59 THEN LET N»K-fiOíLET H=H41 
320 IF F(2I*1 AHI H)*C« TREN LET Ft4l=J 
330 IF H=FH THEH SOTO (80 

■ 340 IF FHAMOI >9 THEH LET EP*10 
350 SOTO 70 

_360 PRlNTlPRINT *A IOMÍE*: IMPUT Nt 
“370 LET HP=0:F0S 1=1 TÜ 20 
380 IF HMIIII THEW LET NP*I 
390 HEXT 1 1 IF NP=0 DEH SOTO 360 
400 6QSUI 950 
410 LET P«NP¡RETURK 
420 LET DT*5 

430 PRlNTlPRINT 'DECIR ÍUEMHPUT « 

440 IF EP=P THEH LET »='HAS ALCAHZAIO AL AEEHTE ENHISO Í'JRITÜRH 

(50 IF Fí3I=0 THEH LEI l*= , HAD!E TE OYEMRETURN 

460 IF MOPt THEN LET lt='EL CONTACTO TE IGNORA'; RE TJRN 

470 IF F16IM THEH LET «^HICISTE EL COHTACTO-TIEHE LA H ALETA “ 

480 LET F (71 =1 "RETURK 
490 LET ST-5 

500 PRIKTlPRIHI 'fiUE SUIERES EXAMINAR ' 1 INPUT Sf 

510 IF S^’HALETA' TffiN LET M='T0P SECRET ¡'¡RETURN 

520 IF ««'LLAVE* THEN LET l**'(JN NUflERG - ■♦STMIHÜlRETURH 

530 LET ««'NASA ESPECIAL ! 1 ¡RETURN 

540 IF POHP OR F 111*1 THEN LET M*‘NADA PARA LEER ! '¡RETURN 

550 LET lt s *UHA PALADA * ”W" 

560 LET Fll)*l:RETURK 
570 LET |T*5 

560 IF POJA THEH LET «*’NAÜA PARA AlRIfi'OiETURN 

590 IF F 151*0 THEN LET M=‘NÍI TIENES LLAVE' ¡RETIÍRH 

690 PÍIHTlPRIHT '«JE H UNE RO' : INPUT YN 

610 IF NLOYN THEN LET |í*'NO ES ESA LLAVE* ¡RETURN 

620 LET B* 1 'LA CAJA ESTA ABIERTA-TIENES LA HALETA'lLET F16)*1 

630 RETURN 

640 LET 01*5 

450 IF EPOP THEH LET ««'SEGUIR A GUIEN ?' íRETWHi 

■ 660 LET NP-FNAÍ20) :SOSUÍ 950: LET P=NP 

■ 670 IF FNAI10J >8 THEN LET P*KP 

■ 6 SO IF FNAU0D7 THEN LET lt='LE PERDISTE POR UN NOHENTO M ¡ RETURN 
690 LET EP=P 

700 LET «*'LE TIENES A LA YISTA'IRETURN 
710 PRINT:PRINT 'CUANTOS MINUTOS-; INPUT ÍT 
720 ÍETURN 

730 PfiINT; PR1N1 'DONDE SUIERES ENCONTRARLE': INPUT S* 

740 PRINTíPRINT 'A SUE HORA 1HH.NH)' 

750 INPUT U 

760 IF P=CP AND T1ÍU AND H<CH THEH LET F(ZI*l 
770 LET ÍT=5:RETliRN 
780 LET lf*’NADA A8UI':LET IT* 10 

790 IF P=KP THEN LET 1»='HAS ENCONTRADO UNA LLAVE 'i LET FI5!*1 
’ 600 RETURN 

810 LET DT*9íLET BÍ**LA HORA ES 'tSTRfiH)*'. 'tSTRUNRRETIJRN 
620 LÍT BT=5 

630 IF U*0 THEH SOTO 860 
640 PfiINT: PfiINT 'EL LUGAR DE ENCUENTRO ES* 

650 PfiINT $♦!' A LAS *111 
660 GOSUÍ 1300; RETURN 


190-200: Comprueba si la misión ha 
terminado. 

210-270: Coge una palabra del jugador y 
comprueba si coincide con alguna de las 
que hay en la memoria. V es el número 
de esa palabra. 


GOTO 70 


280-290: Comprueba el valor de NE 
para detectar si el jugador ha sido visto 
por el enemigo. 

800: Salta a la subrutina, dependiendo 
de la palabra introducida. 

310: Incrementa la hora. 

330: Comprueba si el jugador ha 
consumido todo su tiempo. 

340: Lleva al enemigo de regreso al 
hotel. 

360-410: SUBRUTINA IR. 


420-490: SUBRUTINA DECIR. 


500-540: SUBRUTINA EXAMINAR. 


550-570: SUBRUTINA LEER. 


580-640: SUBRUTINA ABRIR. 


650-700: SUBRUTINA SEGUIR. 


710-720: SUBRUTINA ESPERAR. 


730-770: SUBRUTINA DEJAR. 


780-800: SUBRUTINA BUSCAR. 


810: SUBRUTINA HORA. 


« 



870 LET ÍT=Cl£T l^'PERDH?' ¡RETURH 
880 PRIHT 'DEMASIADO TAíH'JST&P 
090 PRINDPRÍNT 'SIEN HECHO. TU HISIOH HA SIDO UN EXIIf 
900 LEI TLMFTHilóO-H 
ítO LET S*1NT<120/NIHTL/120)K0) 

920 PRINT: PRINT MU CALIFICACION DE ESPIA' 

930 PRIHT 'ES *¡S 
940 STOP 

950 LET NY=IHT([NP-1!/5I 
960 LET *X=NP-5fNY 

970 LET DX'ABSIX-NX) ¡LET DTf=AISÍT*KYt 
960 LET X=NX;LET YMY 
990 LET D*S0RIÍX A 2tlY‘2l 
1000 LET JT=!NT159ÍI:REMR 
□ 1010 SIN R*I20),W(11I,FI?) 

1020 FOR 1=1 TO 20: REAS RUI) 

1030 NEXT I 

1040 FOR 1=1 TO IKREAS WIIDNEXT I 
1050 RETURH 

1060 SATA 'AEROPUERTO', ‘PARADA DE 

AUTOBUS' , 'PUENTE',' CANAL', MSLESIA* 

1070 DATA ’PARSUEyCAFE '/SANCO', 'CINE', 'HOTEL' 

1060 SATA 'CASINO', 'PLAZA HAYOR', 'OFICINA 
DE CORREOS ' , ' COMISARIA*, "FERIA ' 

1090 DATA 'ESTACION' | 'AYUNTAN] ENTO*, 'ENIA1ADA', 

‘JARDINES 1 'CASTILLO' 

1100 SATA ' IR',' BECIR\ 'EXAHIIAR '.'LEER',' ABRIR SE6UIR',' ESPERAR 
1110 DATA 'HORA' , 'AYUDA* 

1120 BATA 'FLAN* /SALHON'p'KOALA' j'ÍOLLO'/CRUCIGR ANA', 'CAN6UR0' 

■ 1130 LET H^FNA IZI «S: LET 6*0 

■ 1140 LET FH=FNA(2m4 

■ 1150 LET CN*FHA(2)'H 
•A 1160 CLSlPRlNBPRlNT 

1170 LET NE=0¡LET T*='EL CONTACTO ESTA A8U1' 

■ 1180 LET HP=FNAI161:LET KP=fMA(18) 

■ 1190 LET EP=FNA(16):L£T CP*FNAI18) 

■ 1200 FOR 1=1 TO FNAI6I 
1210 REAS Pt!NEXT i 

■ 1220 LET NL=FHA¡90Q)*99 
1230 PR1NT 'CITA* 

1240 PRIHT ■=*«' ¡PRINT 
1250 PR1NT 'RECOGER EL NEHSAJE DE' 

1260 PR1NT RN t PIPI 

1270 PR1NI 'EL CONTACTO LO RECOSERA' 

J2B0 PRIHT 'EN '¡RBtCPÍ 
1290 PRINT 'A LAS '¡CHj’.OO' 

1300 PRINT 'EL ULTIMO VUELO SALE 1 
1310 PRINT 'A LAS •¡FHl'.OÍ' 

1320 PRINT ¡PRINT 'PULSA RETURH PARA CONTINUAS' 

1330 INPUI 81: RETURH 


820-860: SUBRUTINA AYUDA. 

870: SUBRUTTNA «palabra no 
reconocidas 

880: Mensaje «tiempo consumido*. 

890*940: Imprime el mensaje y el tanteo 
si la misión ha sido un éxito. El tanteo 
depende del número de movimientos 
realizados v del tiempo que sobre. 


950-1000: Subrutina que calcula la 
distancia que el jugador ha recorrido y 
el tiempo utilizado en el movimiento. 


10104050: Subrutina que lee los datos. 



VDEJARVJUStAR 1 10604120: Líneas de datos, 


1130: Elige la hora de comienzo. 

1140: Elige la hora del último vuelo. 

1150: Elige Ja hora en que el contacto 
recogerá el mensaje. 

11804190: Elige las posiciones del 
mensaje, la llave, el enemigo y dónde 
recogerá el mensaje el contacto. 

12004 210: Elige la palabra clave. 

el número de ia caja de 


Us líneas 10104320 
se llaman sección 
de oínicialización^ 
del programa. 



1220: Elige 
seguridad. 

12304320: 

juego. 


Imprime la introducción al 


Líneas de conversión 



□ 10 ÍEF FM1XJ=IHHRNMX*11 

■ JO borw este linee 
• 70,1160 Sustituir C1S por HOHE 
A 70,1160 Sustituir CLS por PRINT ÍHMM47I 

□ 235 IF LEN<I$i<? THEN LET IM 1 Í*' '¡SOTO 235 

□ 300 S0SSB 3609(0=11*4209 tV=2) *4909 [V=íl *540910=4) *5709 [9=5)+6409(V=6l*71091V=?l *7304 

10=8 ) «7801 IV=9 1 *81 99 <0=101 *820t ( 9=1 1 1 * 8709(9=121 

□ 365 1 F LENÍNfl.H THEN LET N 4 =N$*’ ' I SOTO 365 

□ 735 IF LEH<S*I,I 4 THEN LET SI=S*r MOTO 733 

□ 1010 DIN M<20,14!:iJH Mlll,7):ílH FI7) 

■ 280 , 340 , 660 , 679 , 680 , 1130 , 1140 , 1154 , 1180 , 1190 , 1200,1220 Sustituir FNLf ) por R 
Par ej ttplo FNA< 20 ) serie SNDI 20 I 


Procura averiguar qué hace 
exactamente cada una de las 
líneas de las subrutinas. 


f Las variables F( nú mero) son \ 
«banderas». FÍ5), por ejemplo, es 1 
si tienes la llave y O, si no. 
Intenta encontrar las otras 

banderas y saber su É 

. función. J 
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El entrenador Morse 


Si realmente quieres ser un buen espía, 
necesitas saber enviar, recibir y, por 
supuesto, interceptar mensajes en código 
Morse. Este programa te ayudará a 
aprender. Si nunca has usado el código 
Morse anteriormente, necesitarás hacerte 
una lista de letras y sus equivalentes en 
Morse. Usa para hacerla las líneas 400-450 
del programa. En ellas aparece el código 
Morse de cada letra en orden alfabético. 


Lo que tienes que hacer 

En el código Morse, cada letra se 
representa por una serie de sonidos o 
flashes cortos o largos. En este programa 
verás parpadear un asterisco. El te dará el 
código de una letra, y después el programa 
te preguntará de cuál se trataba. Tendrás 
que permanecer atento a la pantalla para 
distinguir los flashes cortos de los largos y, 
además, recordarlos. También verás 
parpadear el cursor en la parte izquierda 
de la pantalla. Ignóralo, porque no tiene 
nada que ver con el código. 


10 

•A 20 

30 

40 

50 

¿0 

70 

00 

•A 40 

100 

110 

120 

□ 130 
140 

•A 150 
160 
170 
ISO 
190 
200 
210 
220 

□ 230 

□ 

240 

250 

260 

270 

2B0 

290 

300 

*■□310 

320 

A* □■•330 

340 

*A«n«350 

360 
□ 370 
3B0 
390 
400 
410 
420 
430 
440 
450 




Scgúr 

i vayas apren- 

f diend 

o los códigos,! 

i P™ 

eba a jugar J 

m 

nírar la lista, 1 


80SU! 370 
CIE 

LET S=JÜ 

PRINTlPRINT 'ENIRENAÍQÍ POS SE 
PRIHT:PRINT 'RUÉ NIVEL V 
PRINT3PRINT ■( PIMPIDO J* 

PRINT ‘ ALENTO)’ 

INPIIT PILET P=PtS 
US 

PRUT: PRUT 'PREPARATE' 

FOR T*1 T0 2WS;NEXT T 
GQ5UB 310 

LET FÍ*KÍIASCtMI-64) 

SOSIIB 220 
CLSlPR INI 

PRIHT 'TECLEA TU RESPUESTA' 

INPUT X* 

IF X*=M THEN PRIKT 'CORRECTO' 

IF MOR* THEN PRINt 'NO. LA RESPUESTA ES : '¡W 
FOR ?=1 TB 3MS: HEXT T 

SOTO 90 _ 

FOR 3*1 T0 LENIFI1 
LET Ut’NIDtlF*,;,!) 




La línea 30 controla 
la velocidad. (Cnanto 
más bajo sea el número, 
más rápido será el 
programa.) 



IF THEN LET H 
IF M*’-' THEN LET K*S 
EOSOÍ 3301 LET K*1 
GOSOÍ 340 
HEXT J 
RETURN 
PRIHT 

LET 8í=ÍHRI!INTI8NDfl)t!6*65> I 
RETURN 

PRINT TAI 110,1011'** 

FOR M T0 HKiSXT T 
PRINT TABI 10, 10) i ' ‘ 

RETURN 
DIN Nf 1261 

FOR 1*1 T0 261 REAS MUI ¡HEXT I 
RETURN 



Puedes intentar añadir 
una rutina para el tanteo. 
(El programa del 
robot-espía 
te daría una 
idea de como hacerlo.) 


También podrías intentar 
añadir sonido* ya sea a la 
vez o en lugar del asterisco 
parpadeante. Recuerda que 
un punto es un pitido corto y 
una raya uno largo (3 veces 
más largo). 


Líneas de conversión 


DATA i i 


» I,. I i. I I i 

DATA * 

DATA 


I i ■ I ■ 

I ***» f ** | * 

r « i ( ..i i _ ■ * * 

l ** i í * f 


HITA I ■ ■ * - ■ 1 1 

PIN ■ * | ■* | • ■ | * * * | 

BITA 1 -* 1 . 1 J ■ - J 

llnm ii ¡ iM | * i ■* 


DATA 


t 4 i _ . 
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10,10,150 Su»1 iluir CIS püt WltE 
ÍP.fS, 150 Sustituir CIS £>úí H1M CnRir]47l 
■ 130 Uí FMKItC0IE[<*i-A4i 
330 UT Yt-HCk 
235 3F Vi=" 1 THE* GOTO 
,310 L(T flt*CI«Ít)üTIMBi26*¿SU 
no lít Bt=CHíuiifi!i2ÉU*u 
3 iü lí t bi=c m\ hit i m i -r tm \ \ 

330 PC[J4T AI 10, m 1 ! 1 
í» VTMCIH smftr lAJlEíl!¡ K f H 
330 PRUT CHfl* ■: 3 4 1 ; FOR 1 = 1 Tí ¡0 : PRIHT; MEí T: PRINT 
TáliIWiT 
ÍjO PBIH1I J *0, *1 ' 
m LDCFTE HUttffliff T 
350 fíim at tojo;- ■ 

350 íTMr|fl!:HHHT THHJ0» i 1 1 
350 PfilNT ÍH0liE<i; :fDí 3-1 M ie:m»¡T*ETT:Pil*rT 
HKWJt* * 

350 Pí3HTf M0, 1 ' 

¡50 LOCATE 10,]0:PI3ffi ■ 1 
J70 3TF1 MlZi.tl 


Cómo funciona 

10: Salta a la subrutina que lee los 
datos i 

30: Fija velocidad. 

50-80: Pregunta él nivel que quieres y 
calcula la velocidad del parpadeo, 
dependiendo de lo que hayas dicho. 

110: Pausa, 

120: Salta a 3a subrutina que elige una 
letra aleatoria y la guarda en Q!L 

130: Busca el código de puntos y rayas 
de la letra y lo pone en F$. 

140: Salta a la subrutina que imprime el 
asterisco parpadeante. 

160-170: Pide tu respuesta. 

180-190: Comprueba si la respuesta es 
correcta o no e imprime el mensaje 
correspondiente, 

200-210: Hace una pausa y repite el 
proceso con otra letra. 

220-250: Examina F3 haciendo K igual a 
1 sí hay un punto y 3 si hay una raya. 

(K determina el tiempo que permanece 
el asterisco en la pantalla.} 

M 

260-270: Salta a la subrutina que 
imprime el asterisco. Vuelve, hace K 
igual a 1. y salta a la subrutina de la 
línea 340 para «imprimir» un espacio. 
Esto sirve para separar los puntos y las 
rayas, 

280: Vuelve per el siguiente punto o 
raya . 

310-320: Subrutina que escoge una letra 
al azar, 

330: Imprime el asterisco. 

340: Bucle de espera, dependiendo del 
valor de K, 

350: Imprime un espacio en el lugar del 
asterisco, 

370-390: Subrutina que lee los datos. 
400-450: Líneas de datos. 


Respuestas a las cuestiones 
planteadas 

Aquí están las respuestas a algunas de las si funcionan no importa. Comprueba si son 

cuestiones planteadas a lo largo del libro. tan simples y funcionales como las que 

Tus respuestas pueden ser diferentes, pero damos a continuación. 

Ojos de espía 

Cómo añadir una rutina para conservar el 
mejor tanteo. 

15 LEI H=0 

215 PRINT 'NEJOS TANTEO * *¡H 

275 IF P>H THEN LET H=P: PRINT 'ESTE ES EL HEJOR TANTEO* 

290 INPUT AlíIF A$**S' 

290 INPliT Aí: IF A*=*S* THEN 60TO 20 




El faro rastreador 

Esta es la manera de hacer que la luz 
permanezca más tiempo encendida... 

430 1F C1 S TC THEN LET l=l:L£T C1=0:LET 
TC=INT ( RHD 111 * 10 + ( 3-A ) 1+10: S0SUB 300 

...y ésta la de cómo dar al jugador una 
segunda oportunidad. 

15 LET NG=0 
255 LET NG=NC*1 

257 IF M6í 2 THEN FOR T*I T0 200:NEXT TlGOTO 30 


füí 

fcoi 


sa la versión de RND que 
corresponda a tu ordenador 




NG es una nueva variable 
que contiene el número 
de partidas jugadas. 


Este bucle produce una pausa 
para que puedas leer el 
mensaje. Si quieres que la 
pausa sea mayor, aumenta 
este número. 


El robot-espía 

Estas líneas harán que el ordenador 
pregunte al jugador su nombre cuando 
alcance la mejor puntuación. 

25 LET H*= , ttAflIE* 

330 Suita esta linea 

365 IF E-i ANO S)H THEN LET H=S:GQSÍÍ1 410 
410 PRINT 'ESTE ES EL MEJOR TANTEO! 1 
420 PRINT ‘TECLEA TU NQHBRÉ* 

430 INPUT HííRETURN 

Examen de espía 

Con las líneas siguientes el número de 
posiciones es 15 en vez de 10. 

Híl NU5Ü&IH NÍÍ51 

70,160,200,440 Casbiar «1 10 de estas lineas por 15 



Cada uno de estos nuevos libros contiene sencillos programas de 
juegos para utilizar en los ordenadores domésticos de mayor 
difusión. Junto a cada programa hay explicaciones sobre cómo 
funciona, así como problemas y sugerencias para introducir 
cambios que compliquen las aventuras o las hagan más sencillas, 
según los deseos del usuario. Por medio de estos apasionantes 
juegos, incluso los que nunca hayan utilizado un ordenador 
aprenderán con facilidad cómo funciona un programa sencillo, y 
podrán diseñar alguno por sí mismos. Al final de cada libro 
aparecen las claves de conversión para diversos ordenadores, así 
como un glosario de los términos más usuales en BASIC. 


Títulos de la serie 


1 ¿ 8 ? 

300 
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